home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / TSPA3340.ZIP / TSUNTC.INT < prev    next >
Text File  |  1993-05-30  |  2KB  |  57 lines
  1. {$B-,D-,F-,I+,N-,R-,S+,V+}
  2.  
  3. (*
  4. Timo Salmi UNiT C
  5. A Turbo Pascal unit for playing, and other routines needing Ctr
  6. All rights reserved 26-Jul-89,
  7. Updated 19-Aug-89, 12-Nov-89, 14-Jul-90, 26-Aug-92, 30-May-93
  8.  
  9. This unit may be used and distributed freely for PRIVATE, NON-COMMERCIAL,
  10. NON-INSTITUTIONAL purposes, provided it is not changed in any way. For
  11. ANY other usage, contact the author.
  12.  
  13. The units are under development. Comments and contacts are solicited. If
  14. you have any questions, please do not hesitate to use electronic mail for
  15. communication.
  16. InterNet address: ts@uwasa.fi         (preferred)
  17. Bitnet address:   SALMI@FINFUN
  18.  
  19. The author shall not be liable to the user for any direct, indirect or
  20. consequential loss arising from the use of, or inability to use, any unit,
  21. program or file howsoever caused. No warranty is given that the units and
  22. programs will work under all circumstances.
  23.  
  24. Timo Salmi
  25. Professor of Accounting and Business Finance
  26. Faculty of Accounting & Industrial Management; University of Vaasa
  27. P.O. BOX 297, FI-65101 Vaasa, Finland
  28. *)
  29.  
  30. unit TSUNTC;
  31.  
  32. (* ======================================================================= *)
  33.                           interface
  34. (* ======================================================================= *)
  35.  
  36. uses Dos, Crt;
  37.  
  38. (* Play one note
  39.    The strings (pardon the pun) to play the notes are:
  40.    c,c#,d,d#,e,f,f#,g,g#,a,a#,b
  41.    The middle a-flat (440Hz) is in octave 4
  42. *)
  43. procedure PLAYNOTE (note : string; octave : integer; duration : integer);
  44.  
  45. (* Reverse TextColor and TextBackround, that is toggle the colors *)
  46. procedure REVCOLOR;
  47.  
  48. (* Enable intensity instead of blink. Facilitates the bright background
  49.    colors for TextBackground by giving up the possibility of blinking
  50.    in TextColor. See TSUNTC.TST for an example of the usage *)
  51. procedure HIBACK;
  52.  
  53. (* Enable blink, disable bright background. Note that to use HIBACK and/or
  54.    BLBACK you must have an EGA adapter or beyond. *)
  55. procedure BLBACK;
  56.  
  57.